home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2005 March
/
CMCD0305.ISO
/
Software
/
Shareware
/
Grafica
/
falbum
/
fasetup101.exe
/
{app}
/
falbum.exe
/
0
/
RCDATA
/
TFORM2
/
TFORM2.txt
Wrap
Text File
|
2004-10-23
|
8KB
|
344 lines
object Form2: TForm2
Left = 256
Top = 218
Width = 422
Height = 393
Caption = 'Form2'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 414
Height = 359
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'PicDataSet'
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 406
Height = 331
Align = alClient
DataSource = Form1.PicDataSource
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Drive'
Visible = True
end
item
Expanded = False
FieldName = 'FileName'
Visible = True
end
item
Expanded = False
FieldName = 'Path'
Visible = True
end
item
Expanded = False
FieldName = 'RealWidth'
Visible = True
end
item
Expanded = False
FieldName = 'RealHeight'
Visible = True
end
item
Expanded = False
FieldName = 'SampleWidth'
Visible = True
end
item
Expanded = False
FieldName = 'StartPos'
Visible = True
end
item
Expanded = False
FieldName = 'SampleHeight'
Visible = True
end
item
Expanded = False
FieldName = 'Size'
Visible = True
end
item
Expanded = False
FieldName = 'Comment'
Visible = True
end
item
Expanded = False
FieldName = 'Subject'
Visible = True
end
item
Expanded = False
FieldName = 'DateTime'
Visible = True
end
item
Expanded = False
FieldName = 'FileID'
Visible = True
end
item
Expanded = False
FieldName = 'RealSize'
Visible = True
end
item
Expanded = False
FieldName = 'Year'
Visible = True
end
item
Expanded = False
FieldName = 'Month'
Visible = True
end
item
Expanded = False
FieldName = 'Day'
Visible = True
end
item
Expanded = False
FieldName = 'Test'
Visible = True
end
item
Expanded = False
FieldName = 'IconPos'
Visible = True
end
item
Expanded = False
FieldName = 'Private'
Visible = True
end
item
Expanded = False
FieldName = 'IconMax'
Visible = True
end
item
Expanded = False
FieldName = 'IconSize'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_PhotoDate'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_Model'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_Exposure'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_FocalLength'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_FNumber'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_ISO'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_Flash'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_Exists'
Visible = True
end
item
Expanded = False
FieldName = 'CatNum'
Visible = True
end
item
Expanded = False
FieldName = 'PersNum'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_DescPosition'
Visible = True
end
item
Expanded = False
FieldName = 'EXIF_DescSize'
Visible = True
end
item
Expanded = False
FieldName = 'Rate'
Visible = True
end>
end
end
object TabSheet2: TTabSheet
Caption = 'DriveDataSet'
ImageIndex = 1
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 406
Height = 331
Align = alClient
DataSource = Form1.DriveDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Serial'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'VolumeName'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Letter'
Width = 10
Visible = True
end
item
Expanded = False
FieldName = 'DriveType'
Width = 10
Visible = True
end
item
Expanded = False
FieldName = 'Comment'
Width = 200
Visible = True
end>
end
end
object TabSheet3: TTabSheet
Caption = 'CatDataSet'
ImageIndex = 2
object DBGrid3: TDBGrid
Left = 0
Top = 0
Width = 406
Height = 331
Align = alClient
DataSource = Form1.CatDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'CatID'
Visible = True
end
item
Expanded = False
FieldName = 'Category'
Visible = True
end
item
Expanded = False
FieldName = 'FileID'
Visible = True
end
item
Expanded = False
FieldName = 'Comment'
Visible = True
end>
end
end
object TabSheet4: TTabSheet
Caption = 'ConDataSet'
ImageIndex = 3
object DBGrid4: TDBGrid
Left = 0
Top = 0
Width = 406
Height = 331
Align = alClient
DataSource = Form1.ConDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet5: TTabSheet
Caption = 'PersonDataSet'
ImageIndex = 4
object DBGrid5: TDBGrid
Left = 0
Top = 0
Width = 406
Height = 331
Align = alClient
DataSource = Form1.PersonDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
end
end
